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ABSTRACT i Digital filters can be realized with remarkably small computational 
burden as polyphase recursive all-pass networks. These networks are formed as a 
sum of K parallel all-pass subfllters with phase shifts selected to add construc- 
tively in the pacsband and destructively In the stopband. The design technique 
present here starts with prototype K-path recursive all-pass filters obtained by 
a new optireiring algorithm (described in detail elsewhere). T*»**- filters— a** 
operated with coabinations of all-pass transformations, resampling, and cascading 
options. We demonstrate a number of designs using the new al yuiitlim e lunu w ith 
examples of filtering systems obtained by the techniques presented. 



1. INTRODUCTION 

A standard finite impulse response (UK) 
filter can be modeled, as indicated in Tig. 
1, as the weighted summation of the contents 
of a tapped delay line. This, summation is 
shown in (1) and the transfer function of 
this filter is shown in (2). 
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FIGURE 1. TAPPED DELAY LINE FIR FILTER 

We note the frequency selective characteris- 
tics of the filter output is due to the 
phase shift between successive samples in 
the tapped delay line. This phaser summation 
is shown in Fig. 2 for two different fre- 
quencies. 

Note that it is the phase shift, and not the 
weighting terms which is responsible for the 
frequency dependent gain of the filter. The 
weighting terms are used primarily to con- 
trol passband width and stopband attenuation 
of the filter. An idea derived from spatial 
beamf orraing (known as beam spoiling) (1) and 
from signal synthesis (peak-to-rms control) 
(2) is to use structured* phase shifts (with 
arbitrary amplitudes) to accomplish the same 
goal. 



FIGURE 2. FKA80R SUMMATION OF FIR FILTER 
OUTPUT FOR T«C XRZQ VtVClTJ* . 

The class of filters we describe here re- 
places the weights of the FIR filter. with 
all-pass subfllters which exhibit unity gain 
with frequency dependent phase shift. In 
anticipation of the polyphase structure, the 
all-pass subfllters are, as shown in (3) and 
Fig. 3, first order polynomials in V where 
H is the number of taps in the structure. 
This composite form is indicated in Fig. 4a 
with a modified form reflecting a polyphase 
structure in 4b. The transfer function utr 
this structure is shown In (4). 
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FIGURE 3. K-TH ORDER ALL— PASS SUBFILTER 
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Fig. 7' show examples of equal ripple designs 
obtained from this new algorithm for a 2- 
path and for a 5-path filter with two and 
three all-paes stages per path respectively. 
Interacting constraints on the optimal de- 
sign (described In the aforementioned paper) 
limit the possible number of stages per path 
for the 5-path filter to the sequences 
(1,1,1,1,0), (2,2,2,1,1), (3,3,2,2,2) , etc. , 
so that the optimum 5-path filter uses three 
less stages than allocated to the design. 
Similarly the 2 -path filter is limited to 
the sequences (1,0), (1,1), (2,1), (2,2), 
(2,3), (3,3), etc. 

2. TWO PATH FILTERS 

We find a wealth of interesting properties 
and clever applications for this structure 
even If we limit our discussion to a 2-path 
filter. As designed, the 2-path filter is a 
half bandwidth filter with the 3-dB band- 
width at 0.25 f a . If the zeros are restricted 
to the half sampling frequency, the filter 
identical to a half bandwidth Buttervorth 
obtained by the standard warped Ml lnear 
transform. For this special case, the real 
parts of the root locations go to x^ro* If 
the zeros are optimized for equal ripple 
stop band behavior the filter becomes a 
constrained Elliptic filter. The constraints 
are related to a property of complementary 
all-pass filters. We define the <e»ll-p*«« 
sections for the 2-path filter as H 0 (8) and 
H, (8 ) and, as indicated in Fig. 8, the scaled 
by one-half sum and difference of these 
paths by A (G) and B(8), the lowpass and 
highpass filters, respectively. We Know that 
the all-pass sections satisfy (5) from which 
vc derive the power relationship between the 
lowpass and highpass filters shown in (6). 



For small c., we can ignore (c.)* which. -lead* •' 
to (8). 
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FICURE 6. COMPLEMENTARY LOWPA80 AND HIGHPASS 
FILTERS FROM 2-PATH ALL-PASS HETWORK 

|H 0 (6)|? - (^(8)1* - 1 (5) 

|A{8)|^|B(8)| l - lO.StH^e^H^enl 1 (6a) 

+ |0.5[H 0 (8)-H | (e))| l 

-O.SUH 0 (8)|*+K(8)I l J (6b) 

- 1 (6c) 

Now to interpret how this relationship 
impacts the 2-path filter. For the comple- 
mentary filters we define the minimum paso- 
band gain of by l-*t and the peak stopband 
gain by c,. Substituting these gains in (6) 
we obtain (7) . 



(1-e,) 1 + (c,)' - 1 

(W,)' - 1 - 

i - 2*; 4 - i - ( <t )* 



(7a) 
(7b) 
(7c) 



C, - 0.5 («,)' 



Thus if the stopband attenuation is selected ' 
to be 0.001 (60.0 dB) , the passband ripple 
is 0.000 000 5 (126.0 dB) or the passband 
minimum gain Is 0.999 999 5 (-0.000 000 22 
dB) . As can be seen these filters have a 
remarkably flat passband. We conclude that 
the 2-path equal ripple stopband filters are ! 
elliptic filters with coupled passband and 
stopband ripple with -3.0 dB gain at 0.25 f g * I 
There are two significant differences be- j 
tween the 2-path and the standard implemen- i 
tation of the equivalent elliptic mt-»T-^ . 
The first is a four-to-one savings in multi- 
plications; a fifth order haLf hajodvJjdth-3.- • 
path filter requires only two coefficients 
as opposed to the direct implementation- 
which requires eight (scaling Included) . 
second is that all-pass structures exhibit 
unity gain to Internal states hence do not 
require extended precision registers to 
store Internal s.tates as do standard imple- 
mentations* 

As with any filter design, the transition 
bandwidth can be traded for out of band 
attenuation for a fixed order or transition 
bandwidth can be steepened for a fixed 
attenuation by ijicieas'iug fiTterr utuer. 
While nomographs exist for the elliptic-and 
Buttervorth filters which can be implemented 
by the 2-path structure, a simple approxi- 
mate relationship for the eoual ._RisplA_ 
filter is given in (9), where A(dB) is 
attenuation in dB, Af is transition band- 
width, and K is the total number of all-pass 
segments in the filter. 



X(dB) - (72 Af + 10) N 



2A. HILBERT TRANSFORM FILTERS 



(9) 



The Hilbert Transform (HT) can be thought of 
as a particular type of half h and fnt-^y. Tt- 
1s modelled and implemented by a wide band 
90 # phase shifting network. The HT is often 
used in DSP applications to form the analyt- 
ic signal a(n) as shown in (10), a signal 
with spectra limited to the positive (or 
negative) frequency band. 



a(n) - x(n) + j x(n) 



(10) 



We can cast the 2-path filter as a HT in a 
number of ways but a simple method, akin to 
the transformation performed on a half band 
FIR filter (4], is a heterodyne of the half 
band filter to the quarter safnple frequency. 
If the original filter response and trans- 
form are denoted by h(n) and H(Z) respec- 
tively, then the heterodyned expressions can 
be easily seen to be those in (11). 

h(n) -> h(n) e' m " - h(n) (j)" (11a) 

H(Z) ~> H(Z e' f/ *) - H(j 2) (lib) 

The transformation of a half band filter to 
an HT filter is accomplished by replacing 
each 2" 1 of the transfer function with -J'Z*** 
Since the polynomials of the all-pass sub- 
filters are second order, this transfor- 



mat ion can be accomplished by changing the 
sign of the coefficient used In each all- 
pnoe pub filtor and by associating a -J with 
the lower path delay. These operations ere 
indicated in Fig, 9. 



of Fig. 7. is used for up «*»»p*<»»g vnnlrf 
perform 3 multiplications per output point. 





FIGURE J. HILBERT T RAH fl FORM ALL- PASS FILTER 
REALIZATION AS TRANSFORMED HALF BAND FILTER 

2B. INTERPOLATION AKD DECIKATION FILTERS 

Any half bandwidth filter can be used to 
perform 2-to-l resampling (up <cr d ovn, 
popularly identified as Interpolation and 
decimation) . Finite impulse response (XXR) 
filters can be operated vith a polyphase 
partition which does not " process inserted 
zero input points (up-sampling*) - oi . ~cu i u^TfVe 
the discarded output points (down sampling) . 
While this option is not available for the 
general recursive filter, it is er. option 
for the recursive all-pass H-path filter. 
The H-path filter can be partitioned into 
polyphase segments because of the interac- 
tion of the Internal delays of the M-th 
order subfilters and the delay line of each 
path. This relationship is particularly easy 
to see for the 2-path filter. An Impulse 
applied at index n 0 makes a contribution to 
the output at the same time via the upper 
path while an output is not available from 
the lower path till the next index due to 
its extra delay Z* 1 ! During that same next 
index, the upper path offers no contribution 
to the output because there Is no Z" 1 path 
associated with its Z' 2 polynomial. Thus the 
filter delivers successive samples of its 
impulse response from alternate paths of the 
filter. 

Down sampling is accomplished by delivering 
alternate input samples to each path of the 
filter operating at the reduced input rate. 
Since the delay of the second path ie ac- 
complished by the input commutation the 
physical delay element in that path is re- 
moved. The filtered and down sampled out-put 
is generated by the sura or difference of the 
two path responses. Note that the compu- 
tation rate per input sample point is half 
that of the non resampled filter, thus if 
the 2-path filter of Fig. 7 is used for down 
sampling we would perform 3 multiplications 
per input point. 

Up sampling is accomplished by reversing the 
down sampling process. This entails deliver- 
ing the same input to the two paths and corn- 
mutating between their otitputs. Both forms 
of resampling are shown in Fig. 10. As in 
the previous example, when the 2-path filter 
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FI0ORE 10. RESAMPLING 2-PATH ALL-PASS FILTER 

The cascade operation of down sampling and 
up sampling of the complementary outputs 
performs two band maximally decimated quad- 
rature mirror filtering and reconstruction 
(*]. 

Cascading multiple stages of up sampling or 
down sampling filters can achieve high order 
sample rate change vith ■ remarkably small 
workload per data point. For instance, a 1- 
to-16 up sa m pler vith 96 dS dynamic range 
fui -er signal vith cutofT xrequency or 0.4 f~ 
requires 2-path filters vith successively 
smaller number of all-pass stages of orders 
(3,3), (2,2), (2,1), and (1,1). This- -re- 
quires a total of 42 multiplications Jtac-JL*. 
outputs, for an average workload of approxi- 
mately 2.7 operations per output point. 

2C. ITERATED POLYPHASE ALL- PASS FILTERS 

The all-pass networks described earlier are 
formed by polynomials in Z' H and specifically 
for the 2-path filters Z*. A useful trans- 
formation is to replace each 2** vith Z' n t to 
obtain higher order filters exhibiting K- 
fold spectral replication of the original 
filter. For K-2, the half b*rxi filt er c en — 
tered at DC becomes a pair of quarter band 
filters centered at DC and f t /2. An example 
of spectral replication for the iterated 
filter is shown in Fig. 11. 




FIGURE 11. SPECTRUM Of ITERATED 2-PATH 



FILTER! POLYHOMIALS IN 2 
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Note that this transformation scales the 
prototype filter's ■pectrum by 1/K, reducing 
both passband width and transition width. 
Thus very steep transition bandwidths and 
narrow filters can be reallred by the use of 
low order polynomials of degree 2K obtained 
via delay elements. Energy in the replicated 
spectral regions can be removed by a se- 
quence of filters | incorporating various 
degrees of resampling and iterated filters 
of reduced degree. 

3. EFFICIENT ALL -PAS 8 FILTER BAH AS . 

Efficient spectral partitioning can be ob- 
tained by cascading and resampling the out- 
puts of iterated lowpass and HT filters. For 
instance the spectra of a four channel 
filter bank, centered on the four quadrants 
can be formed with a complementary half band 
filter followed by a pair of r es a mp l ed KT 
filters as shown on the left side of Fig* 
12. The workload for this 70 dB attenuation 
filter set is 3 multiplications per output 
channel. 

A four channel filter bank straddling the 
previous set (le. centered on fcher fottr 
cardinal directions) can be formed with an 
iterated by two complementary half band 
filter followed by both a complementary half 
band resampled filter and a resampled HT 
filter. This spectra of this fil ter »«t i« 
shown on the right side of Fig. 12. The 
workload for this 70 dB attenuation filter 
set is 2 multiplications per ou tput rhnnnel ■ 
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FIGURE 12. SPECTRA OF FOUR CHANNEL QUADRANT 
.CENTERED AND CARD I HAL CENTERED FILTER BANK 

4. OTHER ALL- PA8S TRANSFORMATIONS 

The prototype complementary all-pass filter 
set can also be transformed to filters of 
arbitrary bandwidth and of arbitrary center 
frequency by standard all-pass transforma- 
tions [6). The lowpass transformation for 
the half band filter is shown in (12). 



b + Z' 



1 + b 2* 



l-tan(e,/2) 

b - — (12) 

l+tenfO^) 



This transformation warps the frequency 
variable of the filter so that the -3 dB 



point resides at frequency 8 0 . When 0, is 
different from w/2 the second order polyno- 
mials of the all-past subfllters acquire 

coefficients for the 2 M term. The resulting 
filter requires two multiplications per pole 
zero pair which is still half the workload 
of the traditional canonic forms. In addi- 
tion, the pole at the origin (due to the 
delay of the second path) transforms to a 
first order all-pass filter thus converting 
an inactive pole to an active one requiring 
an additional first order stage. Fig. 13 
presents the frequency warped version of the 
filter presented in Fig. 7a. Both this 
filter and its complement are available from 
the warped structure. 




FIGURE 13. LOWPASS TRANSFORMATION OF ALL- 
PASS FILTER 

The bandpass transformation is presented in 
(13). 



c - Z' 



-> -2* 



c 2* 



c - cos(0 t ) 



(13) 



This transformation warps the frequency 
variable of the filter so that the center 
frequency resides at frequency 8,. If 8. is 
equal to 0.0 this transformation is equiva- 
lent to the iterated transformation de- 
scribed in 2.C. For any other frequency, 
this transformation converts the second 
order all-pass filters to fourth order all- 
pass structures. This requires four multi- 
pi ications to form four pole-zero pairs of 
the resultant filter which is still half the 
workload of the traditional canonic forms. 
In addition, the trans fooaa-tlcs; r?nw^^r^ ki> - 
real pole (which is an image of the pole 
originally at the origin) to a pair of co m " 
plex poles requiring a second order all-pass 
stage. Fig. 14 presents the freguency warped 
version of the filter presented ~±tt Fig* 
As earlier, both this filter and its comple- 
ment are available from the warped struc- 
ture. 

Other transformations and geometries (7 J can 
be used with the digital all-pass structure 
and the reader is directed to the bibliogra- 
phy of the listed papers for a profusion of 
options. 




FIGURE 4A. ALL-PASfl FILTER STRUCTURE 




(3) 



FIGURE 48. POLY PRASE ALL-PASS STRUCTURE 

a n 4 T~ 
H ft (2 ") - 

1 + a n Z * 
M-l 

y(z) - x(2) ^H n (r-") r n . (4) 
n-o 



The roots of (3), the M-th roots of -ft and 
its reciprocal, are equally spaced about the 
origin as shown in Fig. 5 for the indicated 
degrees M. Mote that ve realize M poles and 
H zeros per multiplication in tfce ell-pas* 
stage. This means for instance that a 2-path 
filter offers two poles and two zeros per 
multiplication as opposed to one pole (or 
zero) per multiplication for the standard 
(factored or unfactored) canonic forms. 









As we go around the unit el t e le vi-c^K^l-ir^— 
that the all-pass subflltera exhibit rapid 
change in phase in the neighborhood of each 
pole-E«ro pair. By proper choice of the pole 
positions, the phase shift of each leg of 
the M path filter can be made to match or to 
differ by multiples of 2t/H over selected 
spectral intervals. This is suggested in 
Fig. 6 for M-2 and H-4 . The coefficients of 
the all-pass cubfilters can be determined by 
standard algorithms [3] or by a new algo- 
rithm developed by harris and d'Oreye and 
reported in a paper recently submitted for 
publication (Signal Processing). 







FIGURE 6. TYPICAL PHASE RESPONSES OF ALL- 
PASS FILTER PATHS , AND CORRESPONDING KAGNI- 
TWC - RE fl POH fl E C . 




FIGURE 5. POLE-ZERO DinTRIBUTION FOR M-TH 
ORDER ALL-PASS SOBFILTERfl" 



FIGURE 7. POLE-ZERO PLOT AKD MAGNITUDE- 
RESPONSE FOR 2-PATH AND 5-PATH 
POLYPHASE ALL-PASS NETWORK 
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FIGORE 1«. BANDPA88 TRANSFORMATION Of 
ALL- PASS FILTER 

5. CONCLUSIONS 

We have reviewed the font and uti l ity o f th e 
all-pass polyphase filter structure. We then 
presented a number of all~p«n- tiansfuma - 
tions which could be easily applied to M- 
path all-pass filter sets. Hie emphasis has 
been on 2-path networks but the material is 
easily extended to arbitrary M. We alluded 
to a new set of algorit hms tut ■ u e a r l"uiri , i i^ '* B " 
path filters which will be reported In an 
upcoming Signal Processing paper. We have 
demonstrated capabilities of th-i-s algorithm 
by using it to generate the examples .pre- 
sented In this paper. 

The primary advantage of these structures is 
very low workload for a given filtering 
task. Other papers (8,9,10) have discussed 
the low sensitivity to finite arithmetic 
exhibited by these filters. The primary 
impediment to the use of these filters is 
their newness and the lack of available 
design methods for computing filter weights. 
This paper (along with excellent surveys 
listen in the bibliography) *ddr«e« th* 
first problem and a forthcoming paper ad- 
dresses the second. 
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i - *!i:::*:::**iy; 

*::: Le s*L sq 2 are ^ tice ***** ••••*.....*::: 

/« Fvjtmr.1.. #r ^- . Noise Cancelling ***«********«*•*»... 

/deS P I^SI "S; Mtrle aPPr ° aCh *° -ise 9 cancelling *, — / 

void OxiLSL_NC( int reset, 

int passes, 

int 'signal l, 

int * signal"^, 

int *signal~3, 

int * target""! , 

int *target"~2) { 



static in* f' lir k ' *' n ' contraction; 
static float Delta_sqr, scale, noisi ref; ~ ' 



iff reset « TRUE) ( 
fi _ a « eignal_l; 
s _ b - signal_2; 
s _ c ■ signal_3; 
out_a = target 1; 
out_c « target"^; 
factor - 1.5; " 
scale - 1.0 /4160.0; 

/* noise canceller initialization at tiae t«0 */ 

nc(0].berr « o.O; 
nc(0] .Gamma « 1.0; 

for(n=0; m<NC_CELLS; m++) { 
ncfo] ,err__a"" « o.O; 
nc(a].err_b « o.O; 
nc(a].Roh_a « o.O; 
ncfoj.Roh^c « o.O; 
nc(aj. Delta « o.O; 
ncfnJ.Fswsqr « 0.00001; 
nc[m] .Bsvsqr - 0.00001; 

} 

^ — — END INITIALIZATION 
for(k«0; k<passes; k++) { 

contraction « FALSE; 

^ ncfmj.flswsqrl - nc[m] . Bswsqr; * 



noise_ref - factor * log(l.o - (*s_a) * scale) 
nrfn , ~ log(i.o - (*s_b) * scale) ; 

ncfO|.err_a - log(i.o - (*s b) * scale); 
nc(0].err_b «= log(i.o - (*s""c) * scale); 



++s_a ; 
-*-+s_b; 
-m-s c; 



nc(0 J . f err 
nc(0 j .berr 
nc[0] .Fswsqr 
nc[0] .Bswsqr 



noise_ref ; 
noise_ref ; 

LAMBDA * nc(0). Fswsqr + noise_ref * noisejref; 
nc[0] .Fswsqr; 



FALSE); n++y { 



/* Order Update */ 
for(n«l;( n < NC_CELLS) 4fc (contraction 

/* Adaptive Lattice Section */ 

a - n-1; 
ii- n-l; 

nc[a). Delta LAMBDA; 

nc[mj. Delta +« nc(m).berrl * nc[m).ferr / nc(m]. Gamma ; 

Delta_sqr «= nc(m]. Delta * ncjn] .Delta; 



nc(n] . f ref 
ncjn j .bref 

nc[n] .f err 
nc(n] .berr 

nc(n] .Fswsqr 
nc(n] .Bswsqr 



-nc(m] .Delta / nc(m] . Bswsqrl; 
-nc(m]. Delta / nc(m] .Fswsqr; 

ncjmj.ferr + ncfn].fref * ncfmj.berrl; 
nc(m].berrl + nc(n].bref * nc(a].ferr; 

nc(a). Fswsqr - Delta_sqr / nc(mj .Bswsqrl; 
nc[m] .Bswsqrl - Delta_sqr / nc(m] .Fswsqr; 



if( (nc(n] .Fswsqr + nc[n) .Bswsqr) > 0.00001 j | (n < 5) ) { 

nc[n). Gamma = nc[m]. Gamma - nc(ra].berrl * nc(m].berrl / nc[m] .Bswsqrl; 
if (nc[n] .Gamma < 0*05) nc(n]. Gamma ■= 0.05; 
if (nc(n) .Gamma > 1.00) nc[nj. Gamma = 1.00; 

/* Joint Process Estimation Section */ 

nc[m].Roh_a *= LAMBDA; 

nc(m].Roh a +- nc(m].berr * nc(m].err_a / nc(m]. Gamma ; 
nc(m).k_a~ « nc(m].Roh_a / nc(m] .Bswsqr; 
nc(n].err_a « nc(xn).err_a - nc(m].k_a * nc[m).berr; 

nc(m].Roh_c *- LAMBDA; 

nc(m].Roh_c +- nc{m].berr * nc(m].err_b / nc[m]. Gamma ; 

nc[m).k_c - nc[mj.Roh_c / nc[m] .Bswsqr; 

nc[n).err_b « nc(a].err_b - nc(m].k_c * nc[m].berr; ' 

} 

else { 

contraction «= TRUE; 
for(i«n; i<NC CELLS; i++) { 



nc[i] . err_a 
nc[i] .Roh_a 
nc[ i j . err_b 
nc[ i] .Roh~c 
nc[ i] . Delta 
nc[ i] . Fswsqr 
nc( i) . Bswsqr 
nc[ i] . Bswsqrl 



0.0; 
0.0; 
0.0; 
0.0; 
0.0; 

0.00001; 
0.00001; 
0.00001; 



} 



> 

) 

*out_a++ - (int)( (-exp(nc(ii).err a) +1.0) / scale) ; 
*out_c++ - (int)( (-exp(nc(ii].err_b) +1.0) / scale) ; 

) 

) 

/«*««««*••*««***««****« Least Square Lattice otot*********^*^^ 



APPENDIX C 



/* Normalized Adaptive Noise Canceler 



/include <stdlib.h> 
/include <math.h> 

/define TRUE 1 

/define FALSE 0 

/define FLO AT 3 2 float 

/define INT32 long int 

/define VOID void 

/define FABSF fabs 

/define SQRTF sqrt 

/define MAX(a,b) (a) > (b) ? (a) 

/define MIN(a,b) (a) < (b) ? (a) 



(b) 
(b) 



/define MIN__VAL 
/define MAX_DEL 
/define MIN_DEL 
/define MAX_RHO 
/define MIN_RHO 
/define MIN_BSERR 

typedef struct { 



0.01 

0.999999 
-0.999999 

2.0 
-2.0 

1E-15 



FLOAT32 


berr; 




FLO AT 3 2 


berr_l 


• 


FL0AT32 


delta; 




FLOAT32 


err; 




FLOAT32 


f err; 




FLOAT32 


gamma; 




FLOAT32 


gamma_ 


i; 


FLOAT 3 2 


rho; 




FLOAT3 2 


delta_ 


i; 


FLOAT32 


Bserr; 




FL0AT3 2 


Bserr_ 


i; 


LANC CELLS; 







typedef struct { 

INT32 cc; 

FLO AT 3 2 lambda; 

FLOAT32 min__error; 

LANC_C ELLS * ce 1 1 s ; 
} LANC_Context; 

extern LANC_Context * 

LANC_Init ( 

INT3 2 num_cells, 
FLO AT 3 2 lambda, 
FLO AT 3 2 min_ error) ; 

extern VOID 
LANCJDone ( 

LANC_Context *c) ; 



/* number of cells 

/* put in value for lambda 

/* parameter 

/* point to array of ANC_CELLS 



/* number of cells 
/* lambda param 
/* min error 



extern VOID 
LANC_Reset( 

LANC Context 



*anc) ; 



extern FLO AT 3 2 
LANC_Calc( 

LANC_Context *anc / /* input, context handle */ 

FLO AT 3 2 nps, /* input, noise plus signal */ 

FLO AT 3 2 noise); /* input, noise reference */ 

/* The following macros provide efficient access to the lattice */ 



/define 


ANC_CELL 


_SIZE 


/define 


xBERR 


0 


/define 


XBERR 1 


1 


/define 


XDELTA 


2 


/define 


XDELTA 1 


3 


/define 


XGAMMA 


4 


/define 


XGAMMA 1 


5 


/def ine 


XBSERR 


6 


/define 


XBSERR 1 


7 


/define 


XERR 


8 


/define 


XFERR 


9 


/define 


XRho 10 



/define berr (*(p 

/define P_berr__l (*(p 

/define P_berr (*(P 

/define berr_l (*(p 

/define Bserr (*(p 

/define Bserr_l (*(P 

/define P_Bserr_l (*(P 

/define P_delta (*(P 

/define delta (*(p 

/define delta_l (*(p 

/define P_delta_l (*(p 

/define err (*(p 

/define N_err (*(P 

/define P_ferr (*(p 

/define ferr (*(p 

/define gamma (*(P 

/define P_gamma (*(p 

/define N_gamma (*(p 

/define P_gamma_l (*(P 

/define gamma_l (*(p 

/define rho (*(p 



+ xBERR)) 

+ XBERR_1 - ANC_CELL_SIZE) .) 

+ XBERR - ANC_CELL_SIZE) ) 
+ XBERR_1) ) 

+ XB5EKRT) 
+ XBSERR_1)) 

+ XBSERR_1 - ANC_CELL_SIZE) ) 

+ XDELTA - ANC_CELL_SIZE) ) 
+ XDELTA)) 
+ XDELTA_1)) 

+ XDELTA_1 - ANC_CELL_SIZE) ) 
+ XERR)) 

+ XERR + ANC_CELL_SIZE) ) 

+ XFERR - ANC_CELL_SIZE) ) 
+ XFERR) ) 

+ XGAMMA) ) 

+ XGAMMA - ANC_CELL_SIZE) ) 
+ XGAMMA + ANC_CELL_SIZE) ) 
+ XGAMMA_1 - ANC_CELL_SIZE) ) 
+ XGAMMA_1) ) 

+ XRho)) 



/* 

Name: LANC Init 



Abstract: Create an ANC context 



extern LANC_Context * 
LANC_Init ( 

INT32 num_cells, /* number of cells */ 

FLO AT 3 2 lambda, /* lambda parara */ 

FLOAT3 2 min_error) { /* min error */ 

LANC_Context *anc; /* context */ 

anc = (LANC_Context *)malloc(sizeof (LANC_Context) ) ; 
assert (anc != NULL) ; 
anc->cc = num_cells; 
anc->lambda = lambda; 
anc->min_error = min_error; 

anc->cells = ( LANC_CELLS * ) malloc (sizeof (LANC_CELLS) * (num cells + 2 
assert (anc->cells 1= NULL) ; 

return (anc) ; 



Name : LANC_Reset 

Abstract: Reset an ANC context 



extern VOID 
LANC_Reset ( 

LANC_Context *anc) { 

FLOAT32 *p; 
INT3 2 m; 

p = (FLO AT 3 2 *)anc->cells; 



(m = 0; 


m 


<= anc->cc; m++) { 


rho 




0.0; 


err 




0.0; 


f err 




0.0; 


berr 




0.0; 


berr 1 




0.0; 


delta 




0.0; 


delta_l 




0.0; 


Bserr 




anc->min_error ; 


Bserr_l 




anc->min error; 


gamma 




MIN VAL; 


gamma 1 




MIN VAL; 


P . 




ANC CELL SIZE; 



} 

p = (FLOAT 3 2 *) anc->cells; /* Cell # 0 special case */ 

gamma = 1.0; 
gamma_l = 1.0; 

} 

/* 

Name : LANC_Done 

Abstract: Delete an ANC context 



extern VOID 
LANC_Done ( 

LANC_Context *anc) { 

free(anc->cells) ; 
free(anc) ; 

} 

/* 

Name: LANC_Calc 

Abstract: Calculate 



FLOAT32 
LANC_Calc ( 

LANC_Context *anc, 

FLOAT 3 2 nps, . 

FLOAT32 noise) 

{ 

INT32 m; 
FLO AT 3 2 *p; 
FLO AT 3 2 B,F,B2,F2; 
FLOAT32 qd2,qd3; 
INT32 output_cell; 

/* Update time delay elements in cell structure */ 

p = (FLOAT32 *)anc->cells; 

for (m = 0; m <= anc->cc; m++) { 

gamma_l = gamma; 

berr_l = berr; 

Bserr_l = Bserr; 

delta_l = delta; 

p += ANC CELL SIZE; 

> 



/* input, context handle */ 
/* input , noise plus signal */ 
/* input, noise reference- *-/ 



/* Handle Cell # 0 */ 

p - (FLO AT 3 2 *)anc->cells; 

Bserr = anc->lambda * Bserr_l + noise * noise; 
Bserr - MAX (Bserr, MIN_BSERR) ; 

ferr = noise / SQRTF (Bserr) ; 

ferr = MAX (ferr, MIN_DEL) ; . • • 

ferr = MIN(ferr, MAX_DEL) ; 

berr = ferr; 

rho = anc->lambda * SQRTF (Bserr_l / Bserr) .* rho + berr * nps; 
N_err = nps - rho * berr; 

output_cell = anc->cc - 1; /* Assume last cell for starter */ 

for (m = 1; m < anc->cc; m++) { 
p += ANC_CELL_SIZE; 

B = SQRTF(i.o - P berr_l * P_berr_l) ; B2 = 1.0/B; 



F = SQRTF(i.o - i-_ferr * P_ferr ) ; F2 - l.o/F; 

P_delta = P_delta_l * F * B + P_berr_l * P_ferr; 
P_delta = MAX(P_delta, MIN_DEL) ; 
P_delta - MIN(P_delta, MAX_DEL) ; 
qd3 = 1.0 - P__delta * P_delta; 
qd2 = 1.0 / SQRTF(qd3); 

ferr = (P_ferr - P_delta * P_berr_l) * qd2 * B2; 
ferr = MAX (ferr, MIN_DEL) ; 
ferr = MIN (ferr, MAX_DEL) ; 

berr = (P_berr_l - P_delta * P_ferr ) * qd2 * F2; 
berr = MAX (berr, MIN_DEL) ; 
berr = MIN(berr, MAX_DEL) ; 

gamma = P_gamma * (1.0 - P_berr * P__berr) ; 
gamma = MAX (gamma, MIN_VAL) ; 
gamma = MIN (gamma, MAX_DEL) ; 

Bserr = P_Bserr_l * qd3; 

Bserr = MAX (Bserr, MIN_BSERR) ; 

rho *= anc-> lambda * SQRTF ( (Bserr_l / Bserr) * (gamma / gamma_l) ) ; 

rho += berr * err; 

rho = MAX (rho, MIN_RHO) ; 

rho = MIN (rho, MAX^RHOT; 

N_err = err - rho * berr; 

> 

p = (FLOAT32 *) &(anc->cells[output_cell /* *ANC_CELL_SIZE */]); 
return (N_err) ; 

} 



/* QRD 

/include <stdlib.h> 
/include <math.h> 

/define TRUE 
/define FALSE 

/define FLOAT32 
/define INT32 
/define VOID 

/define FABSF 
/define SQRTF 



APPENDIX O 
*/ 



1 
0 

float 
long int 
void 

fabs 
sqrt 



typedef struct { 

INT32 dummy; 
} LQRDJPEF CONTEXT ; 



typedef LQRDJPEF_CONTEXT * LQRD JPEF__Handle ; 



extern LQRDJPEF_Handle 
LQRDJPEF_Init( 

INT32 

FLOAT32 

FLOAT32 

FLOAT32 

FLOAT32 



NumCells, 
Lambda, 
SumErrlnit, 
Gamslnit, 
MinSumErr) ; 



extern VOID 
LQRDJPEF_Done ( 

LQRDJPEF_Handle hJPE) ; 

extern VOID 
LQRDJPEF_Reset ( 

LQRDJPEF_Handle hJPE) ; 



extern FLOAT 3 2 

LQRDJPEF_Calc( 

LQRDJPEF__Handle hJPE, 
FLOAT3 2 nps , 
FLOAT3 2 noise) ; 



/* handle 

/* noise plus signal 
/* noise reference 



/define MAX(a,b) (a) > (b) ? (a) : (b) 
/define MIN(a / b) (a) < (b) ? (a) : (b) 



/define LQRD JPEF_CELL_SI ZE 27 
typedef struct { 



FLO AT 3 2 


sinf , 


sinf_ 


1 


} 


FLOAT3 2 


sinb , 


sinb_ 


1 


i 


FLO AT 3 2 


cosf , 


cosf_ 


1 


9 


FLOAT3 2 


cosb , 


cosb_ 


1 


t 



FLOAT32 



epsf ; 



FLOAT 3 2 epsb , epsb_l ; 

FLOAT3 2 pief , pief_l ; 

FLOAT 3 2 pieb , pieb_l ; 

FLOAT 3 2 Fserr, Fserr_l, SQRTF_Fserr , SQRTF_Fserr_l; 

FLOAT32 Bserr_l, Bserr_2, SQRTF_Bserr_l , SQRTF_Bserr_2 ; 



FLOAT32 p_l, p_2; 
FLOAT32 gams_l; 
FLOAT32 epsi_l; 



} LQRDJPEF_CELL; 

typedef struct { 

INT32 

FLOAT32 

FLOAT32 

FL0AT32 

FLOAT32 

FL0AT32 

FLOAT32 

LQRDJPEF_CELL 
} LQRDJPEF_Context ; 



NumCellSL; /* 

Lambda ; / * 

SumErrlnit; /* 

Gamslnit; /* 

MinSumErr; /* 

SQRTF_Lambda ; / * 
SQRTF_SumErrInit; /* 

♦cells; /* 



number of cell 5* 
Lambda 

Initial value for Fserr, Bserr 
Initial value for gams 
Minimum for Fserr, Bserr 
square root of Lambda: 
square root of SumErrlnit 
point to array of JPE_CEEC5" 



The following macros provide efficient access to the lattice 



Define variables offsets within sLmcLme " 



/define 


XSINF 






0 


/define 


XSINF 1 






1 


/define 


xSINB 






2 


/define 


xSINB_l 






3 


/define 


xCOSF 






4 


/define 


xCOSF 1 






5 


/define 


XCOSB 






6 


/define 


XC0SB_1 






7 


/define 


XEPSF 






8 


/define 


xEPSB 






9 


/define 


XEPSB_1 






10 


/define 


XPIEF 






11 


/define 


XPIEF 1 






12 


/define 


xPIEB 






13 


/define 


xPIEB_l 






14 


/define 


xFSERR 






15 


/define 


XFSERR_ 


1 




16 


/define 


XSQRTF_ 


FSERR 




17 


/define 


XSQRTF_ 


FSERR_ 


1 


18 


/define 


XBSERR 


1 




19 


/define 


XBSERR_ 


2 




20 


/define 


xSQRTF_ 


BSERR 


1 


21 


/define 


XSQRTF 


BSERR 


2 


22 



/define xp_l 
/define xp_2 



23 
24 



/define xGAMSQ_l 2. 
/define xEPSI 1 26 



#def ine 


sinf 








/define 


sinf_l 




(*(ptr 


+ 


/define 


P_sinf 




(*(ptr 


+ 


/Hp f in© 


P s inf 






4. 


#def ine 


sinb 






4- 
* 


/define 


sinb_l 




(*(ptr 


+ 


/define 


P_ sinb 




(*(ptr 


+ 


/define 


P sinb 


1 






/define 


cosf 




tic f ntr- 




/define 


cosf_l 




(*(ptr 


+ 


/define 


P_cosf 




(*(ptr 


+ 


/define 


P cosf 


1 




+ 


/define 


cosb 




(*(pt3T 




/define 


cosb 1 






+ 


/define 


P cos;b 






+ 


/define 


P — cosb 


1 


V V Jr w *- 


+ 


/define 


epsf 




(*(prtr- 


i 


/define 


P epsf 




( * ( ptr 




/define 


eosb 






4- 


/define 


e Psb_l 




(*(ptr 


+ 


/define 


P_epsb 




(*(ptr 


+ 


/define 


P epsb 


1 






/define 


pief 




(*fptr 


+ 


/define 


pief_l 




(*(ptr 


+ 


/define 


P_pief 




(*(ptr 


+ 


/define 


P_pief_ 


1 


(*(ptr 


+ 


/define 


pieb 




(*(ptr 


+ 


/define 


pieb_l 




(*(ptr 


+ 


/define 


P_pieb 




(*(ptr 


+ 


/define 


P_pieb_ 


_1 


(*(ptr 


+ 



/define 


Fserr 




(*(ptr 


+ 


/define 


Fserr_l 




(*(ptr 


+ 


/define 


P_Fserr 




(*(ptr 




/define 


P_Fserr_l 




(*(ptr 


+ 


/define 


SQRTF_Fserr 




(*(ptr 


+ 


/define 


SQRTF_Fserr_l 




(*(ptr 


+ 


/define 


SQRTF_P_Fserr 




(*(ptr 


+ 


/define 


SQRTF_P_Fserr_ 


1 


(*(ptr 


+ 


/define 


Bserr_l 




(*(ptr 


+ 


/define 


Bserr_2 




(*(ptr 


+ 


/define 


P_Bserr_l 




(*(ptr 


+ 


/define 


P_Bserr_2 




(*(ptr 


+ 


/define 


SQRTF_Bserr_l 




(*(ptr 


+ 


/define 


SQRTF_Bserr_2 




(*(ptr 


+ 


/define 


SQRTF_P_Bserr_ 


1 


(*(ptr 


+ 


/define 


SQRTF P Bserr 


'2 


(*(ptr 


+ 



XSINF) ) 
xSINF_l) ) 

XSINF - LQRD JP EF_CELL_S I Z E ) 

XSINF_1 - LQRD JPEF_CELL_S I Z E ) 

XSINB) ) 
XSINB_1) ) 

XSINB - LQRDJPEF__CELL_SIZE) 

XSINB_1 - LQRDJPEF_CELL_SIZE) 

xCOSF) ) 
XC0SF_1) ) 

XCOSF - LQRD JPEF__CELL_S I ZE) 

XC0SF_1 - LQRDJPEF_CELL_SIZE) 

XCOSB) ) 
XC0SB_1) ) 

XCOSB - LQRD JPEF_CELL_SI ZE) 

XC0SB_1 - LQRD JPEF_CELL_S I Z E ) 

xEPSF) ) 

XEPSF - LQRDJPEF_CELL_SIZE) 

-XEP-SB-* - A 
XEPSB^_1) ) 

XEPSB - LQRD JPEF_CELL_S I ZE ) 

XEPSB_1 - LQRD JPEF_CELL_S I ZE) 

XPIEF) ) 
XPIEF_1) ) 

XPIEF - LQRDJPEF_CELL_SIZE) 

XPIEF_1 - LQRD JPEF_CELL_S I ZE ) 

XPIEB) ) 
XPIEB_1) ) 

XPIEB - LQRD JPEF_CELL_S I ZE ) 

XPIEB_1 - LQRD JP EF_CELL_S I Z E ) 



XFSERR) ) 
XFSERR_1) ) 

XFSERR - LQRDJPEF_CELL_STZEJT) 
XFSERR_1 - LQRDJPEF_CELL_SrZE) ) 
XSQRTF_FSERR) ) 
XSQRTF_FSERR_1) ) 

XSQRTF_FSERR - LQRD JPEF_CELL_S I Z E ) ) 
xSQRTF_FSERR_l - LQRD JPEF_CELL_S I Z E ) ) 

XBSERR_1) ) 
XBSERR_2)) 

XBSERR_1 - LQRDJPEF_CELL_SIZE) ) 
XBSERR_2 - LQRDJPEF_CELL_SIZE) ) 
XSQRTF_BSERR_1) ) 
XSQRTF_BSERR_2) ) 

XSQRTF_BSERR_1 - LQRDJPEF_CELL_SIZE) ) 
XSQRTF_BSERR_2 - LQRD JP EF_CELL_S I Z E ) ) 



/define p_l 
/define p_2 
/define P_p_l 
/define P_p_2 

/define gams_l 
/define P_gams_l 

/define epsi_l 
/define P_epsi_l 

static FLO AT 3 2 
RSQRTF ( 

FLO AT 3 2 X) { 



(*(ptr + xp_l)) 

(*(ptr + xp_2)) 

(* (ptr + xp_l 

(*(ptr + xp_2 



- LQRDJPEF_CELL_SIZE) ) 

- LQRDJPEF_CELL_SIZE) ) 



(*(ptr + xGAMSQ_l)) 

(*(ptr + XGAMSQ_1 - LQRDJPEF_CELL_SIZE) ) 
(*(ptr + XEPSI_1)) 

(*(ptr + XEPSI_1 - LQRDJPEF_CELL_SIZE) ) 



> 



return 1.0F / SQRTF(x); 



Name : LQRDJPEF_Init 

Abstract : Create a JPE context 



extern LQRDJPEF_Handle 
LQRD JPEF_Init ( 

INT32 

FLOAT32 

FLOAT32 

FLOAT32 

FLOAT32 



NumCells^ 
Lambda,- 
SumErrlnit, 
Gamslnit, 
MinSumErr) { 



LQRDJPEF Context 



*jpe; 



jpe = malloc(sizeof (LQRDJPEF_Context) ) ; 
assert (jpe != NULL) ; 



jpe->NumCells = NumCells; 

jpe->Lambda = Lambda; 

jpe->SumErrInit = SumErrlnit; 

jpe->GamsInit = Gamslnit; 

jpe->MinSumErr = MinSumErr; 

jpe->SQRTF_Lambda = SQRTF( jpe->Lambda) ; 

jpe->SQRTF_SumErrInit = SQRTF( jpe->SumErrInit) ; 

jpe->cells = malloc (sizeof (LQRDJPEF_CELL) * (NumCell-sr t 2") ) 7 
assert (jpe->cells 1= NULL); 

LQRDJPEF_Reset( (LQRDJPEF_Handle) jpe) ; 
return ( (LQRDJPEF_Handle) jpe) ; 

} 



/* 

Name : LQRDJPEF_Done 

" Abstract : Delete a JPE context 



extern VOID 
LQRDJPEF_Done( 



LQRDJPEF_Handl€ 

LQRD JPEF_Con text 

f ree( jpe->cells) ; 
free(jpe) ; 



hJPE) { 

*jpe = (LQRDJPEF_Context *)hJPE; 



Name 

Abstract 



LQRDJPEF_Reset 
Reset a JPE context 



extern VOID 
LQRDJPEF_Reset ( 

LQRDJPEF Handle 



hJPE) { 



LQRDJPEF_Context *jpe = ( LQRDJPEF_Cont ext *)hJPE; 



FLOAT 3 2 
INT32 



*ptr; 
m; 



ptr = (FLO AT 3 2 *) jpe->cells; 

for (m = 0; m <= jpe->NumCells; m++) { 

sinf = 0.OF; 

sinb = 0.0F; 

cosf = O.OF; 

cosb = O.OF; 

epsf = O.OF; 

epsb = O.OF; 

pief = O.OF; 

pieb = O.OF; 

p_l = O.OF; 

Fserr = jpe->SumErrInit; 

Bserr_l = jpe->SumErrInit; 

gams_l = jpe->GamsInit; 

SQRTF_Fserr = jpe->SQRTF_SumErrInit ; 

SQRTF_Bserr_l = jpe->SQRTF__SumErrInit; 



+= LQRD JPEF_CELL_S I Z E ; 



ptr 
} 

ptr = (FLOAT32 *) jpe->cells; 
gams 1 = l.OF; 



/* Cell # 0 special case 



Name 

Abstract 



LQRDJPEF Calc 



extern FLOAT32 

LQRDJPEF_Calc( 

LQRD JPEF_Hand le 
FLOAT 3 2 nps, 
FLO AT 3 2 noise) { 



hJPE, 

/* noise plus signal 
/* noise reference 



*/ 
*/ 



LQRD JPEF_Con text *jpe = (LQRDJPEF_Context *)hJPE; 



INT3 2 



m; 



FLOAT3 2 
FLO AT 3 2 



*pw; 
tmp; 



Time update section 



*/ 



ptr 



= (FLOAT32 *) jpe->cells; 



for (m = 0; m <= jpe->NumCells; m++) { 

/* some of following delay elements are not needed */ 

sinf_l = sinf ; 

sinb_l = sinb; 

cosf_l = cosf; 

cosb_l = cosb; 

epsb_l = epsb; 

pief_l = pief; 

pieb_l = pieb; 

Fserr_l = Fserr; 
Bserr_2 = Bserr_l; 
P_2 = p_l; 

SQRTF_Bserr_2 = SQRTF_Bserr_l ; 
SQRTF_Fserr_l = SQRTF_Fserr; 

ptr += LQRDJPEF_CELL_SIZE; 
} 

/* Order update section */ 
/* Handle Cell #0 */ 

ptr = (FLO AT 3 2 *) ( jpe->cells) ; /* point to cell # 0 */ 
epsf = noise; 
epsb = noise; 
epsi_l = nps; 

/* rest of cells */ 

for (m = 1; m < jpe->NumCells; m++) { 

ptr += LQRDJPEF_CELL_SIZE; /* access next cell */ 

/* Prediction section */ 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsb_l * Pjepsb 
P_Bserr_l = MAX(PJBserr_l, jpe->MinSumErr) ; 
SQRTF_P_Bserr_l = SQRTF ( P_Bserr_l ) ; 

tmp = RSQRTF(P_Bserr_l) ; /* this comes free on DSP */ 

P_cosb_l = jpe->SQRTF_Lambda * SQRTF_P_Bserr_2 * tmp; 

P_sinb_l = P_epsb_l * tmp; 

tmp = jpe->SQRTF_Lambda * P_pief_l; 

epsf = P_cosb_l * P_epsf - P_sinb_l * tmp; 

P_pief = P_cosb_l * tmp + P_sinb_l * P_epsf ; 

gams 1 = P cosb 1 * P gams 1; 



P_Fserr = jpe->Lambda * P_Fserr_l + P_epsf * P_epsf ; 
P_Fserr = MAX(P_Fserr, jpe->MinSumErr) ; 

SQRTF_P_Fs err = SQRTF(P_Fserr) ; 

trap = RSQRTF(P_Fserr) ; /* this comes free on DSP */ 

P_cosf = jpe->SQRTF_Lambda * SQRTF_P_Fserr_l * tmp; 

P_sinf = P_epsf * tmp; 

tmp « jpe->SQRTF_Lambda * P__pieb_l; 

epsb = P_cosf * P_epsb_l - P_sinf * trap; 

P_pieb = P_cosf * tmp + P_sinf * P_epsb_l; 

/* Joint Process Estimation section */ 

tmp = jpe->SQRTF__Lambda * P_p_2 ; 

epsi_l = P_cosb_l * P_epsi_l - P__sinb_l * tap; 
P_p_l = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

> 

ptr += LQRD JPEF_CELL_SI ZE ; /* access next cell */ 

/* Do minimum work for JPE of very last cell 

only four equations are required for prediction section 

P_Bserr_l = jpe->Lambda * P_Bserr_2 + P_epsb_l * P_epsb 1; 
P_Bserr_l = MAX(P_Bserr_l, jpe->MinSumErr) ; 

SQRTF_P_Bserr_l = SQRTF (P_Bserr_l) ; 

tmp = RSQRTF (P_Bserr_l) ; /* this comes free on DSP */ 
P_cosb_l - jpe->SQRTF_Larabda * SQRTF_P_Bserr_2 * tmp; 
P_sinb_l = P_epsb_l * tmp; 

/* Joint Process Estimation for last cell */ 
tmp «■ jpe->SQRTF_Lambda * P_p_2; 

epsi_l = p_cosb_l * P_epsi_l - P_sinb_l * tmp; 
P_P_1 = P_cosb_l * tmp + P_sinb_l * P_epsi_l; 

gams_l = P_cosb_l * P_gams_l; 
return (gams_l * epsi_l) ; 



